home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 October / PCWorld_2000-10_cd1.bin / Software / Vyzkuste / tiptrik / tiptrik.exe / soubory pro pcw 10 - æikovn¡ pomocn¡ci pro vaçe Windows / skripty / Protbars.mak < prev    next >
Text File  |  2000-08-17  |  262b  |  8 lines
  1. Bars = Array("Menu Bar", "Standard", "Formatting")
  2. Lista = 2
  3. For i = 0 To Lista
  4. CommandBars(Bars(i)).Protection = msoBarNoChangeDock _
  5. + msoBarNoMove + msoBarNoCustomize + msoBarNoChangeVisible
  6. 'CommandBars(Bars(i)).Protection = msoBarNoProtection
  7. Next i
  8.